home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 179 / 179.d81 / b.universe iv (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  65 lines
  1. 5 poke55,.:poke56,56:clr:poke788,49
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 12 poke53371,0
  4. 15 print"[147]":poke53280,0:poke53281,0
  5. 17 tq=ti
  6. 18 gosub60000
  7. 20 sys57812"universe font",dv,0:poke780,.:poke781,.:poke782,56:sys65493
  8. 25 poke53272,31
  9. 26 sys57812"universe4 sfx",dv,0:poke780,.:poke781,.:poke782,192:sys65493
  10. 27 ifti<tq+100then27
  11. 28 ad=49152:poke53371,0:dv=peek(186):ifdv<8thendv=8
  12. 29 sysad:sysad+12
  13. 35 sysad+9,0
  14. 40 print"[147][150]       [204][207][193][196][211][212][193][210] [208][210][207][213][196][204][217] [208][210][197][211][197][206][212][211]"
  15. 42 print"[153]   [176][192][192][192][174][176][192][192][192][174][176][192][192][192][174][174]@[176][192][189][174]@@@[176]@[176]@[176][192][192][192][174]
  16. 44 [153]"   (NULL)@@@@(NULL)@@@(NULL)-tan=tanexp-tan<@@/tan=tanexp@@@/tantantan^
  17. 46 print"   [173][192][192][192][189][173][192][192][192][189][189]@[173][192][189][189]@[173][192][174]@@[177]@@@@@[173][192][192][192][189]
  18. 50 [153]" ^@@@orortan^@or@=@^@@@orortantantan^ortantantan^ortantantan^ortantantan^
  19. 52 print" [221]@@@[221][221]@[221]@[221]@[221]@[173][174]@[176][189][171][192][192][179]@[171][192][178][192][189][173][192][192][192][174][171][192][192][179]
  20. 54 [153]" /tantantanexpexp@/tanexp@>@@/tanexp@/tantantanexpexp@/tanexp/tantantanexp/tantantanexp
  21. 55 printtab(16)"[178]@[174]@@@[176]"
  22. 56 printtab(16)"[221]@[173][174]@[176][189]"
  23. 57 printtab(16)"[177]@@[173][192][189]"
  24. 59 print"[154]  [193]stronomy [208]rograms by [195][207][210][203][217] [195][207][195][200][210][193][206]
  25. 60 [153]"         1  clratn(NULL)(NULL)val(NULL)(NULL)right$str$ (NULL)right$(NULL)val(NULL)
  26. 62 print"         2  [156][194][201][206][193][210][217] [211][212][193][210][211]
  27. 64 [153]"         3  clr(NULL)lenlen(NULL)(NULL)(NULL)atn(NULL)right$(NULL)(NULL)(NULL) (of (NULL)oon)
  28. 66 print"         4  [156][205][197][212][197][207][210] [212][210][193][195][203][197][210]
  29. 68 [153]"         5  clrchr$(NULL)valval(NULL) asc(NULL)atn(NULL)left$
  30. 70 print"         6  [156][194][193][195][203] [212][207] [204][207][193][196][211][212][193][210]
  31. 80 [151]198,0
  32. 82 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]82
  33. 90 [145][197](a$)[137]100,102,104,106,108,40000
  34. 100 f$[178]"asteriod size":[137]110
  35. 102 f$[178]"binary stars":[137]110
  36. 104 f$[178]"occult":[137]110
  37. 106 f$[178]"meteors":[137]110
  38. 108 f$[178]"green flash"
  39. 110 [158]ad[170]15
  40. 146 [153]"loadstopload"[199](34)f$[199](34)","dv
  41. 148 [153]"run"
  42. 150 [151]631,13:[151]632,13:[151]198,2:[128]
  43. 10000 d[178][194](186):n$[178]"b.universe iv":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  44. 40000 [158]ad[170]15
  45. 40005 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  46. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  47. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  48. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  49. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  50. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  51. 40060 [130]:[142]
  52. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  53. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  54. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  55. 60000 [153]"load":z$[178]" open                                      ":[151]214,8:[153]
  56. 60010 [153]" frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  57. 60020 [153]" contposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposopen"
  58. 60030 z$(0)[178]"len(NULL)(NULL)(NULL)(NULL)'(NULL) (NULL)(NULL)right$(NULL)val(NULL)(NULL)val right$(NULL)
  59. 60040 z$(2)="by [195]orky [195]ochran
  60. 60050 z$(4)[178]"(c) 1999 by mid$ & asc (NULL)ublishing, right$nc."
  61. 60060 z$(6)[178]"(NULL)his program is not shareware
  62. 60070 z$(7)="or in the public domain."
  63. 60080 z$(9)="1-800-594-3370 or 1-318-221-8718
  64. 60090 [151]214,10:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  65.